100 CO=54272:FORT=COTOCO+24:POKET,0:NEXT
110 POKE53280,0:POKE53281,1:V$=" SECONDS"
120 PRINT"[147]"TAB(12)"REVENGE OF CYON[146]"
130 PRINT""TAB(11)"(USE JOYSTICK #2)"
140 PRINT"WHAT SKILL LEVEL (1-6)?"
150 GETA$:IFA$<"1"ORA$>"6"THEN150
160 D=VAL(A$):SC=1024
170 POKECO+24,15:POKECO+5,17:POKECO+6,248:POKECO,100
180 BG=1
190 POKE53281,1:PRINT"[147]":POKE53281,0:PRINT"[159]"BG:TI$="000000"
200 LK=INT(RND(1)*150)+SC
210 FORI=1TO10:O=1064+INT(RND(1)*520):POKEO,46:POKEO+CO,1:NEXT
220 POKE1154,81:POKE1154+CO,1
230 PRINT""
240 PRINT"[206][163][163][145][157][216][163][205][205][164][164][206][145][206][145][206][163][163][145][206][145][206][163][163][205][205][205][205][205][164][164][164][164][164][164][164][206][145][206][145][206][205][205][164][164][206][145][206][145][206][163]"
250 PRINT"[206][145][165][145][157][164][206][163][163][145][157][221][163][205][164][157][167][205]"
260 POKE1769,87:POKE1769+CO,4:POKE1887,124:POKE1887+CO,5
270 FORI=1890TO1887STEP-1:POKEI+1,32:POKEI+CO+1,0:POKEI,124:POKEI+CO,5
280 FORJ=1TO80:NEXTJ,I
290 J=0:K=0
300 X=20:Y=12:TH=0:S1=0:A=32:A1=32:A2=32
310 FORW=1TO3:FORI=10TO200STEP10:POKECO+1,I:POKECO+4,33:FORJ=1TO10:NEXTJ,I,W
320 PRINT"    "
330 POKECO+4,32
340 S=1524
350 POKES,A
360 P=PEEK(56320)AND15:Y=Y+((PAND1)=0)-((PAND2)=0):X=X+((PAND4)=0)-((PAND8)=0)
370 FR=PEEK(56320)AND16:IFX<0THENX=39
380 IFY<0THENY=0
390 IFX>39THENX=0
400 IFY>24THENY=24
410 IFLK>1983THEN610
420 C=C+1:IFFR=0THENTH=TH+1
430 POKELK+CO+PO,D1:IFA1<>43THENPOKELK+PO,A1
440 IFBG>6ANDJ<>1THENPOKELK+CO+PO+6,D2:IFA2<>43THENPOKELK+PO+6,A2
450 IFFR=0ANDTH<=7THENGOSUB1030
460 PO=INT(RND(1)*D)+1:IFTH>7THENFR=1
470 POKEOS,32:NS=1064+INT(RND(1)*520):POKENS,46:OS=NS
480 S=SC+X+Y*40
490 A=PEEK(S):POKES,43:IFC=2THENLK=LK+40:C=0
500 A1=PEEK(LK+PO):D1=PEEK(LK+PO+CO)
510 IFBG>6ANDJ<>1THENA2=PEEK(LK+PO+6):D2=PEEK(LK+PO+CO+6)
520 IFS1<>1THENPOKELK+PO+CO,7:POKELK+PO,90
530 A$="SHOTS":IFTH=1THENA$="SHOT "
540 PRINT"";:IFS=LK+POANDFR=0THENPRINTTH;A$:PRINTRIGHT$(TI$,2)V$:GOTO910
550 IFBG>6ANDJ<>1THENPOKELK+PO+CO+6,7:POKELK+PO+6,90
560 IFBG>6ANDJ<>1ANDS=LK+PO+6ANDFR=0THENPRINTTH;A$:PRINTRIGHT$(TI$,2);:GOSUB860
570 IFPEEK(1769)=87THENPOKE1769,81:POKE1769+CO,4:GOTO590
580 POKE1769,87:POKE1769+CO,4
590 IFJ=1ANDS1=1THENBG=BG+1:GOTO1040
600 POKESC+QW,32:QW=INT(RND(1)*360)+80:POKESC+QW,46:GOTO350
610 JH=JH+1:IFJH<3THEN190
620 POKECO+1,10:POKECO+4,129
630 FORI=0TO15:FORJ=0TO15:POKE53280,I:POKE53281,J:NEXTJ,I
640 POKE53280,0:POKE53281,0
650 POKECO+4,128
660 PRINT"[147][159]YOU SURVIVED"BG-1"ATTACK WAVES."
670 ONBGGOSUB730,740,750,760,770,780,790,800,810,820,830
680 PRINT"[158]PLAY AGAIN (Y/N)?"
690 GETA$:IFA$=""THEN690
700 IFA$="Y"THENRUN
710 IFA$="N"THENEND
720 GOTO690
730 PRINT"[156]SORRY, PRIVATE.":RETURN
740 PRINT"[156]NOT TOO BAD, CORPORAL.":RETURN
750 PRINT"[156]NICE GOING, SERGEANT.":RETURN
760 PRINT"[156]WAY TO GO, SECOND LIEUTENANT.":RETURN
770 PRINT"[156]YOU ARE NOW FIRST LIEUTENANT.":RETURN
780 PRINT"[156]YOU ARE NOW A CAPTAIN.":RETURN
790 PRINT"[156]YOU ARE NOW A MAJOR.":RETURN
800 PRINT"[156]YOU ARE NOW A COLONEL.":RETURN
810 PRINT"[156]YOU ARE NOW A GENERAL.":RETURN
820 PRINT"[156]YOU ARE NOW A FIELD MARSHALL.":RETURN
830 PRINT"[156]HELLO, MR. PRESIDENT.":RETURN
840 PRINT"[147][158]YOU SAVED THE EARTH FROM ALIEN ATTACK!!"
850 GOTO 680
860 FORF=1TO3:FORL=150TO100STEP-1:POKECO+1,L:POKECO+4,17:NEXT:NEXT:POKECO+4,16
870 PRINTV$:POKELK+PO+CO+6,1:POKELK+PO+6,43
880 FORZ=40TOLK-SCSTEP40:G=PEEK(LK+PO-Z+6):G1=PEEK(LK+PO-Z+CO+6)
890 POKELK+PO-Z+CO+6,7:POKELK+PO-Z+6,90:FORH=1TO70:NEXT:POKELK+PO-Z+CO+6,G1
900 POKELK+PO-Z+6,G:NEXT:TH=0:J=1:RETURN
910 IFBG>6ANDJ<>1THENPOKELK+PO+CO+6,7:POKELK+PO+6,90
920 S1=1
930 FORT=1TO3:FORTY=100TO150:POKECO+1,TY:POKECO+4,17:NEXT:NEXT:POKECO+4,16
940 S1=1:POKELK+PO+CO,1:TH=0:POKELK+PO,43
950 FORZ=40TOLK-SCSTEP40:G=PEEK(LK+PO-Z):G1=PEEK(LK+PO-Z+CO)
960 POKELK+PO-Z+CO,7:POKELK+PO-Z,90:FORH=1TO70:NEXT:POKELK+PO-Z+CO,G1
970 POKELK+PO-Z,G:NEXT
980 IFBG<7THENBG=BG+1:GOTO190
990 IFJ=1ANDS=1THENBG=BG+1:IFBG<12THEN190
1000 IFJ=1ANDS=1ANDBG=12THEN840
1010 GOTO550
1020 REM FIRE NOISE
1030 POKECO+1,200:POKE CO+4,129:POKECO+4,128:FORT=1TO100:NEXT:RETURN
1040 IFBG<=11THEN190
1050 GOTO840